md"""

## Plotting confirmed SARS–CoV–2 infections

### Author: [Josef Heinen](https://github.com/jheinen)

​

#### Required packages: PlutoUI, GR

​

You may have to comment out the Pluto part, if you are running the script on a remote web server. If you are running the script in a local notebook server, you will be able to pan/zoom the plot and display information when hovering over the data points.

"""

begin

    using DelimitedFiles

    using PlutoUI

​

    ENV["GRDISPLAY"] = "pluto" # see note above

    using GR

    GR.js.init_pluto() # see note above

end

begin

    url = "https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_confirmed_global.csv"

    download(url, "covid19.csv")

end;

begin

    data = readdlm("covid19.csv", ',')

    ncountries, ncols = size(data)

    ndays = ncols - 4

end;

begin

    cummulated = Dict()

    for i in 1:ncountries

        country = data[i,2]

        if country in countries

            if !haskey(cummulated, country) cummulated[country] = zeros(ndays) end

            cummulated[country] .+= collect(data[i,5:end])

        end

    end

end

begin

    day = collect(Float64, 1:ndays);

    confirmed = hcat([cummulated[country] for country in countries]...)

end;

md"""

Here you can select the country you want to see.

​

You can select multiple countries or all countries with `Cmd`+`A`.

"""

@bind countries MultiSelect(["Germany", "Austria", "Belgium", "Netherlands", "France", "Italy", "Spain", "US"], default=["Germany"])

plot(day, confirmed, xlim=(0, ndays+1), ylim=(10, 20_000_000), ylog=true,

     title="Confirmed SARS–CoV–2 infections", xlabel="Day", ylabel="Confirmed",

     labels=countries, location=4)